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BASIC 


m | Bucles 
incondiciona- 
les: FOR-TO-NEXT 


A hemos estudiado la 
posibilidad de cons- 
truir estructuras repe- 
titivas mediante el 
uso combinado de 
las instrucciones |lIF- 
THEN y GOTO. El núme- 
ro de veces que se 
repetía el bucle dependía de la condi- 
ción que marcaba el fin del mismo. 

Sin embargo, el lenguage BASIC dispo- 
ne de una nueva estructura que permite 
la realización de bucles de un modo sen- 
cillo. Esta estructura se denomina abre- 
viadamente bucles FOR-TO-NEXT, O sim- 
plemente FOR-NEXT. Básicamente se pue- 
den hacer las siguientes identificaciones: 

* Instrucción de comienzo del bucle: 
FOR-TO. 

* Instrucción de cierre del bucle: NEXT. 


' La instrucción FOR-TO 


Un primer formato general para la ins- 
trucción FOR-TO es el siguiente: 


FOR <variable índice>==<valor inicial > 
TO <valor final > 


La variable índice se puede asimilar al 
contador del bucle construido con lIF- 
THEN, ya que su misión es la misma: con- 
tabilizar el número de veces que se eje- 
cuta el bucle. Para ello hay que especi- 
ficar un valor inicial y un valor final para 
dicha variable. 

El número de valores diferentes que ad- 
quiere la variable índice, desde el valor 
inicial hasta el final, determina el núme- 
ro de veces que se repite el bucle. Siem- 
pre que la instrucción FOR-TO tenga el 
formato indicado, el incremento del va- 
lor de la variable índice será la unidad 
en cada ejecución del bucle. 

En la figura 1 podemos ver algunos 
ejemplos aclaratorios. 


N.? de 
Valores sucesivos o maca 
del bucle 


1,2,3, dl 19,10 
eS 6, 7 


=] Ejemplos de instrucciones FOR-TO. 


En cuanto a la variable índice, no es 
más que una variable numérica y, por 
tanto, los nombres válidos son los ya co- 
mentados en el tomo 5, a excepción del 
SPECTRUM, que sólo admite una letra 
como nombre de variable índice. Ade- 
más, el AMSTRAD, el IBM y el MSX admiten 
variables de tipo entero. 


O La instrucción NEXT 
El formato general es el siguiente: 
NEXT <variable índice > 


donce la variable índice especificada es 
la misma que figura en la instrucción FOR- 
TO del mismo bucle. 


REM 
REM * SUMAS ACUMULADAS 


CLs 


Cs 
IF NF<NI THEN PRINT 
LET SA=0 


PRINT * 
PRINT :¿PRINT 

FOR I=NI TO NF 
LET SA=SA+ 1 

PRINT I;¿TABC15) ¿Sá 
160 NEXT 1 


En la línea 130 se inicia el bucle, espe- 
cificando los valores inicial y final para la 
variable índice |. En este caso ambos va- 
lores son variables, ya que dependen de 
los números inicial y final del intervalo 
que deseamos sumar. De todas formas 
dichos valores pueden ser también cons- 
tantes numéricas o expresiones aritméti- 
cas. 

Cada uno de los valores que toma la 
variable | se suma a la variable SA en la 
línea 140, de modo que SA actúa de acu- 
mulador. 


KERR ERAS 


* 


REM AXIAL 


INPUT "NUMERO INICIAL "¿NI 
INPUT "NUMERO FINAL "¿NF 


"TECLEE PRIMERO EL MENOR" :GOTO 50 


PRINT "NUMERO" ;TAB(15);"SUMA ACUMULADA" 
"¿TABC15)3" : 


La instrucción NEXT tiene por objetivo 
incrementar el valor de la variable indi- 
ce. A continuación comprueba si el nue- 
vo valor obtenido es mayor o menor que 
el valor final especificado en la instruc- 
ción FOR-TO correspondiente. Si el nuevo 
valor es menor o igual que el valor final 
se repetirá la ejecución del bucle, mien- 
tras que en caso contrario el bucle no se 
repetirá y la ejecución del programa 
continuará por la instrucción siguiente el 
NEXT. Si no hay más instrucciones la eje- 
cución finalizará. 

Veamos un primer ejemplo. El progra- 
ma 1 tiene por objeto imprimir en panta- 
lla todos los números enteros del interva- 
lo que deseemos, así como las sumas 
acumuladas correspondientes. 


La línea 150 se encarga de imprimir en 
pantalla en cada ejecución del bucle el 
valor actual de |, así como la suma acu- 
mulada en ese momento. 

Finalmente, en la línea 160 se encuen- 
tra la instrucción NEXT que cierra el bu- 
cle. 

En la figura 2 podemos ver el aspecto 
de la pantalla, tras una posible ejecu- 
ción de este programa. 

Es importante tener en cuenta que el 
valor de la variable índice a la salida de 
un bucle FOR-TO-NEXT será siempre igual 


. BASIC 


al valor final especificado más el incre- 
mento propio del bucle. 


El programa 2 es un ejemplo típico de 
aplicación de los bucles FOR-TO-NEXT. Su 
objetivo es calcular el factorial de un nú- 
mero cualquiera. Recordemos que la ex- 
presión matemática para el cálculo del 
factorial es la siguiente: 


FACTORIAL DE N=N!=1*2*3"...*(N-2)'(N-1)'N 
Por tanto, el factorial de un número N 


es igual al producto de todos los núme- 
ros naturales comprendidos entre 1 y N. 


ACUMULADA 


20 REM * 
40 CLS 


EL FACTORIAL ? "¿N 
$0 CLS 


30 LET FAC=1 

90 FOR I=2 TON 
100 LET FAC=FAC*I 
110 NEXT 1 

120 PRINT "NUMERO 
130 PRINT :¿PRINT 


La condición de la línea 70 evita que 
el ordenador trate de calcular factoria- 
les de números mayores que 33, ya que 
no tiene capacidad para manejar núme- 
ros tan grandes. 4 

En la línea 80 se establece la variable 
FAC que va a ser en la que se acumulen 
posteriormente todas las multiplicacio- 
nes. Se la asigna el valor 1, puesto que 
es el elemento neutro de la multiplica- 
ción, además de ser el primer número a 
multiplicar. 

A continuación se inicia el bucle en la 
línea 90. La variable índice | va a tomar 
todos los valores entre 2 y N, que son los 
que hay que multiplicar. 

En la línea 100 se efectúan todas las 
multiplicaciones, una por cada ejecu- 
ción del bucle.  ' 

La línea 110 marca el final del bucle. Fi- 
nalmente se imprime en pantalla el resul- 
tado tal y como muestra la figura 3. 

El programa 3 tiene como objetivo lo- 


REM AAA AR 
FACTORIAL DE UN NUMERO  * 
30 REM XARXA LERNER RR 


50 INPUT "¿ DE QUE NUMERO DESEA CALCULAR 


70 IF N>33 THEN PRINT 
FACTORIALES DE NUMEROS MAYORES DE 33": GOTO 50 


"NO PUEDO CALCULAR 


140 PRINT "FACTORIAL =",FAC 


NUMERO - 8 


FACTORIAL = 40320 
Ok 


lA Presentación en pantalla del programa 2. 


calizar el mayor y el menor de una serie 
de datos. En este caso concreto los da- 
tos son las edades de un conjunto de 
personas. 


10 REM AAA AAA 
20 REM * MAYOR Y MENOR * 


30 REM AAA ARARRR 
40 CLS 


50 LET MA=0:LET ME=100 

60 LET A$="":¿LET Es="" 

PO INPUT "NUMERO DE DATOS ";D 

80 IF D<1 THEN GOTO 70 

0 CLS 

100 FOR I=1 TO D 

110 INPUT "NOMBRE "¿N$ 

120 INPUT "EDAD "¡E 

130 IF E<=0 OR E>100 THEN GOTO 120 
140 IF EsMA THEN LET MA=E:LET A$=N$ 
150 IF E<ME THEN LET ME=E:LET E$=N$ 
160 CLS 

170 NEXT 1 

1380 PRINT "DATOS DEL MAYOR" 

LSD PREINT > E 

200 PRINT 

210 PRINT "NOMBRE:",As 

220 PRINT "EDAD —:",MA 

230 PRINT ¿PRINT 

240 PRINT "DATOS DEL MENOR” 

250 PRINT " A 

260 PRINT 

270 PRINT "NOMBRE:",ES$ 

280 PRINT "EDAD — :",ME 


En la línea 50 establecemos unas eda- 
des ficticias para comenzar: O para el 
mayor y 100 para el menor. Evidentemen- 
te, cualquier edad que tecleemos poste- 
riormente será mayor que 0 y menor que 
100, por tanto, estos valores de MA y ME 
cambiarán durante la ejecución. Del mis- 
mo modo, en la línea 60 asignamos la ca- 
dena vacía (“”) a dos variables AS y ES 
que almacenarán posteriormente los 
nombres del mayor y el menor, respecti- 
vamente. 

En este programa es necesario cono- 
cer de antemano el número de datos 
que se va a introducir, puesto que, de lo 
contrario, no podríamos utilizar un bucle 
FOR-TO-NEXT. 

La línea 100 marca el inicio del bucle, 
que va a actuar como mero contador de 
los datos que se van a introducir en las lí- 
neas 110 y 120. 

La condición de la línea 140 se encar- 
ga de comprobar si la edad tecleada es 
mayor que la almacenada en MA, en 
cuyo caso la nueva edad pasará a alma- 
cenarse en MA, desapareciendo la anti- 
gua, y el nombre de la persona corres- 
pondiente pasará a almacenarse en AS. 
La condición de la línea 150 es análoga 
a la anterior, pero para localizar el me- 
nor. 

Cuando la ejecución sale del bucle las 
edades del mayor y el menor estarán en 
MA y ME, respectivamente, así como los 
nombres correspondientes en AS y ES, 
por tanto, se imprimirán en pantalla los 
resultados tal y como muestra la figura 4. 


DATOS DEL MAYOR 


NOMBRE : 


ALEJANDRO NAVARRO 
EDAD: 26 


DATOS DEL MENOR 


NOMBRE : 


ESTHER MALDONADO 
EDAD: 23 


] 
| 
[A Presentación en pantalla del programa 3. 


La mayoría de los ordenadores permi- 
ten no indicar la variable índice corres- 
pondiente en la instrucción NEXT, por tan- 
to, la siguiente estructura sería correcta: 


FOR I=1 TO 20 


NEXT 
De los ordenadores en estudio, única- 


mente es necesario indicar la variable ín- 
dice del NEXT en el SPECTRUM. 


. El incremento: STEP 


Hasta ahora los bucles FOR-TO-NEXT 
que hemos visto tenían siempre un incre- 
mento de la variable índice de la unidad. 
Sin embargo, podemos establecer un in- 
cremento distinto mediante la instruc- 
ción STEP que se utiliza ligada a la instruc- 
ción FOR-TO con el siguiente formato: 


FOR <variable índice >==<valor inicial > 
TO <valor final > STEP <incremento > 


Evidentemente, el incremento es de 
naturaleza numérica, al igual que los va- 
lores inicial y final, por tanto, puede ser 
una constante, una variable o una expre- 
sión artimética. Asimismo puede ser po- 
sitivo, negativo, entero o decimal. 

El programa 4 tiene por objeto imprimir 
en pantalla la progresión aritmética que 
deseemos en el intervalo que queramos. 
Recordemos que una progresión aritmé- 
tica es una serie de números tales que un 
número cualquiera N de la progresión es 
igual al que le precede, N-1, más una ra- 
zón de la progresión, R. Por ejemplo: 


9, 12, 15, 18, 21, 24 


e BASIC 


es una progresión aritmética de razón 
R=3. 


REM. REALES 
REM * PROGRESIONES ARITMETICAS * 
REM AAA RAR RRA 
CLS 

INPUT "NUMERO INICIAL "¿NI 

INPUT "NUMERO FINAL "¿NF 

INPUT "RAZON "¿R 
CLS 

IF R>O AND NI>NF THEN GOTO 50 

IF R<O AND NI<NF THEN GOTO 50 

FOR I=NI TO NF STEP R 

PRINT 13","; 

NEXT 1 ; 

PRINT :PRINT:PRINT :PRINT 

PRINT "INICIO DE LA PROGRESION: "¿NI 
PRINT 

PRINT "FIN DE LA PROGRESION — :"¿NF 
PRINT 
PRINT "RAZON DE LA PROGRESION :"¿R 


Las condiciones de las líneas 90 y 100 
impiden que tecleemos un incremento 
positivo cuando el número inicial es ma- 
yor que el final, y viceversa. 

El bucle FOR-TO-NEXT de las líneas 110 
a 130 se encarga de imprimir en panta- 
lla la progresión. 

En la figura 5 podemos ver el aspecto 
de la pantalla, tras una posible ejecu- 
ción. 


. 4 ,-1..-*6 ,-11 ,-16 


INICIO DE LA PROGRESION: 24 


FIN DE LA PROGRESION 1-16 


RAZON DE LA PROGRESION :-5 
Ok 


Presentación en pantalla del programa 4. 


Finalmente, el programa 5 permite de- 
terminar los valores de la función 
y = Xx? + 2x + 8 para distintos valores de x 
con el incremento deseado. Cuanto más 
pequeño sea el incremento los valores 
obtenidos serán más próximos, con lo 
cual podríamos hacer posteriormente 
una representación gráfica muy exacta. 


REM FALIERAEA EAAARAARA E AAAAAIEAAAAARRRR 
20 REM * TABLA DE VALORES DE UNA FUNCION  * 
30 REM REALI RAEE AAA ARA 
40 CLS 

50 INPUT "VALOR INICIAL "¿UI 

$0 INPUT “VALOR FINAL "¿UF 

70 INPUT "INCREMENTO ";1 

80 IF 1>0 AND VI>UF THEN GOTO 50 

50 IF 1<0 AND VI<UF THEN GOTO 50 

100 CLS 

110 PRINT "FUNCION: Y=X"2+2*X-8" 

120 PRINT " " 

130 PRINT :PRINT 

140 PRINT TAB(7);"X"¡TABC19);"Y" 

150 PRINT TAB(S)3"-----"¡TABC13)7"-=---- " 

160 PRINT 

170 FOR X=VI TO UF STEP 1 

180 LET Y=X"2+2x*x-8 

190 PRINT TAB(S)¡X¡TABC(13) ¿Y 

200 NEXT Xx 


La figura 6 muestra la presentación en 
pantalla, tras una posible ejecución. 

Tras estos ejemplos podemos sacar al- 
gunas conclusiones. Por ejemplo, si el va- 
lor inicial del bucle es menor que el final 


[»> Presentación en pantalla del programa 5. 


el incremento debe ser siempre positivo, 
mientras que si el valor inicial es mayor 
que el final el incremento tiene que ser 
negativo. Si no cumplimos estos requisi- 
tos habremos creado un bucle infinito. 


FUNCION: Y=X” 2+2*X-8 


COMMODORE 64 


Comandos de 
transferencia 


ON aquellos que per- 
miten copiar el con- 
tenido de un registro 
a otro dentro del mi- 
croprocesador, de 
tal manera que se 
puede cargar al ACU 
lo que haya en el re- 
gistro X o en el registro Y. Esto es impor- 
tante, ya que algunos comandos traba- 
jan sólo con el ACU. El contenido del re- 
gistro origen permanece invariable. 

Sólo hay una excepción; no se pueden 
transferir los registros X e Y entre sí. 

Todos ellos son de 1 byte y por tanto, 
no necesitan operandos. 


TAX X=A 
TXA A =X 
TAY Y=A 
TYA A = Y 
TSX = S. Pointer 


TXS S. Pointer = X 


El registro Stack Pointer (apuntador a 
pila) sólo se puede transferir al registro X, 
y su utilización se verá más adelante. 

Con los cuatro primeros comandos se 
alteran los flags Zero y Negative del re- 
gistro de estado, dependiendo del valor 
transferido. 

Con los dos últimos, en los que intervie- 
ne el Stack Pointer, no se altera ningún 
flag, ya que el SP no es un registro nor- 
mal de trabajo del procesador. 

Por último, veamos los códigos corres- 
pondientes a estos comandos. 


MAQUINA 6502 


¡Comando | Código | 


[mu Comandos aritméticos 


Son comandos que se utilizan para ha- 
cer adiciones y sustracciones con los re- 
gistros del procesador. 

Constan de dos operandos, el primero 
debe estar en el ACU, y el segundo se ex- 
trae de la memoria. El resultado se lleva 
siempre al ACU. 

Así, por ejemplo, el comando 


ADC 4 SAO 


podríamos “traducirlo” como: Sumar al 
contenido del ACU, el número SAO, y el 
resultado ponerlo en el ACU. 

Igual que con los comandos de carga 
y almacenamiento existen varios modos 
de direccionar estos comandos que es- 
tán incluidos al final de los comandos 
aritméticos. 

Ahora vamos a abordar un problema 
que todavía no nos había surgido. 

Al sumar dos números de 8 bits (0-255), 
el resultado podría ser mayor que 255, ci- 
fra que no podría representarse en un 
solo registro de 8 bits. Ha ocurrido un des- 
bordamiento, palabra que fue introduci- 
da al hablar de los registros propios del 
microprocesador. 


Vamos a ver qué es lo que ocurre en 
estos casos: Supongamos que el ACU 
contiene el número $A3 = 163 = 
= %10100011, y a continuación introduci- 
pe el comando a) ADC + $15; b) ADC + 

98. 

a) La adición sería: 


SA3 = % 10100011 
+ $15 % 00010101 


$B8 = % 10111000 


Como puede observarse la suma bina- 
ria presenta cuatro posibilidades: 


1 

1 

0 (más el desbordamiento o “lle- 
varse una”) 


Bien, en este caso el resultado de la 
adición es menor de 255 = % 11111111 = 
$FF y no ocurre nada anormal, pues el nú- 
mero $B8 puede ser representado per- 
fectumente con 8 bits en el ACU. 

b) La adición sería: 


$SA3 = % 10100011 
+ $98 = % 10011000 
$13B= 100111011 


Se ha producido un desbordamiento 
que excede los 8 bits. Es ahora cuando 
se activa el Carry flag del registro de es- 
tado: (C=1). Es por ello, que a veces se 
le denomina “noveno bit del ACU”. 

Según lo que acabamos de ver, se de- 
duce que el Carry flag debe ser desacti- 
vado (C= 0) antes de cada operación de 
adición, pues si no, podría aparecer un 
desbordamiento después de operar, que 
en realidad no existe. 

Además del Carry flag se podrán acti- 
var los flags Zero y Negative dependien- 
do del resultado de la adición. La sus- 
tracción aritmética se realiza de forma 
análoga a la adición. En este caso se res- 
ta del ACU el byte direccionado. Al igual 
que en la adición puede ocurrir un des- 
bordamiento pero negativo, es decir, un 
número menor que cero. 

Cuando se produce un desbordamien- 
to negativo el Carry flag se desactiva. Por 
tanto, antes de realizar una substracción, 
se debe activar el Carry flag, para evitar 
la aparición de un desbordamiento que 


en realidad r.o ha tenido lugar si antes de 
la operación ya estaba desactivado di- 
cho flag. 

La resta binaria, al igual que la suma, 
presenta cuatro posibilidades: 


0-0=0 

0 - 1= 1 (más el desbordamiento negati- 
vo) 

1-=0= 


l-1= 


Supongamos que hemos cargado el 
ACU con el número $0B = %00001011 = 
11, y a continuación introducimos el co- 
mando SBCi$20 = 00100000 = 32. 

La representación sería la siguiente: 


% 00001011 
- % 00100000 


% 11101011 


Se obtiene el número $EB=235, produ- 
ciéndose un desbordamiento negativo, y 
desactivándose, por tanto, el Carry flag. 

Veamos cómo se interpreta un resulta- 
do de este tipo. 

Si hubiésemos hecho la resta al revés, 
el resultado hubiera sido % 00010101 = 
$15 = 21. Como puede observarse la 
suma de los dos resultados es 256, que 
como usted ya sabe son el número de 
combinaciones posibles dentro de un re- 
gistro de 8 bits. 

Pues bien, se pueden hacer dos cosas: 


— Hacer la resta normalmente, invertir 
todos los bits, y sumar uno al resultado. 


%11101011 — %00010101 = 21 =$15 


— Hacer la resta al revés, es decir, el 
byte direccionado menos el numero que 
se halle en el ACU. 


%00100000 - %00001011 = %00010101 


Para terminar con los comandos arit- 
mético, se presenta aquí una lista de sus 
códigos en sus diferentes modos de di- 
reccionamiento. 


Modos de direccionamiento | ADC | 
Inmediato 

Absoluto 

Zero page 


Absoluto indexado por X 
Absoluto indexado por Y 
Zeropage indexado por X 
Indirecto indexado por Y 
Indirecto indexado por X 


'O Programa: 
Juego 
de Damas 


L juego de las DAMAS, 
junto con el AJEDREZ, 
EL PARCHIS y LA OCA, 
es uno de los más ju- 
gados y más aprecia- 
dos en España. A 
continuación propo- 
nemos un programa 
que nos permitirá jugarlo de forma que 
nuestro oponente sea el ordenador. 


/ Fig. 1. 


Poco hay que explicar sobre su funcio- 
namiento, ya que es conocido por todos. 
Lo único que hay que decir sobre el pro- 
grama es explicar cómo funciona. 

Las fichas del ordenador estarán mar- 
cadas con una X, y las del jugador, con 
una O. Estas letras estarán en minúscula 
al empezar el juego. Cuando cualquiera 
de los dos jugadores haga DAMA, enton- 
ces la ficha con la que haya llegado al 
otro extremo del tablero se pondrá en 
mayúscula. 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


Jota 3 Sn ars Juego de tablero lia 


Tu oponente sera el propio ordenador. 
La fiiba del ordenador sera una X. 
Tu fiche sera una O. 

El ordenador wovera primero. 


muros gaticos. Por edeaplo loca 
elorbenador to pedira las cosráentios o 


PULSA UMA TECLA 


Fig. 2. 


El tablero estará representado tal y 
como aparece en la figura 3. Para reali- 
zar un movimiento tendrás que dar las 
coordenadas de origen, pulsa ENTER y a 
continuación las de destino. Primero ten- 
drás que dar la coordenada en X y des- 
pués la coordenada en Y. Si al realizar un 
movimiento te comes una de las fichas 
del oponente, el ordenador te pregunta- 
rá si quieres realizar otro movimiento 
para comerte otra ficha. En caso negali- 
vo tienes que contestar con dos números 
negativos. 


tRRianto oletama de coordenadas. 


612345367 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 


REM ARSS SS SS SS ESOS jSSjSS OSO ESjOlSjSlSjO] SS lSjOEO SS lOlOjOlOJOK 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


* EF - ETRE 


k 
DDDDD  AAMA M M AAAA  S55S k 
D DA AMM MMA AS S xk 
D DA AMM MMA A S xk 
D DA AMMMMA A S5S5 *k 
D D AAAABA M M M AAAAAA S *k 
D DA A M MA AS S *X 
DDDDD A A M MA A SSSS *k 

*k 


REM AMOS ISSN SOS SOS OOOO SOS SOS SOS” lol” jaok 


REM 


REM ASS SOS OSOS lO OJOS lSSS SPSS lSSlSjS OSOS ISSO OJO 
REM doo (c) Ed. Siglo Cultural Axio 
REM ddololdlobkkk (c) 1987 ES 
REM SIS lSS SOS jSS SPSS” JS Jl jojojo: 


REM 
CES 
LOCATE 12,9 
PRINT "EDICIONES SIGLO CULTURAL” 
LOCATE 14,14 
PRINT "PRESENTA ..." 
FOR I=1 TO 1000 
NEXT 1 
LOCATE 23,1 
II EEE ct 
PRINT "* 
PRINT "$ aolok AMO KO JOOKK 
PRINT "* x k xk k kx xk xk E 
PRINT "* x*x k ok k xx xk k ER 
PRINT "* *x KR RC NETO KO 
PRINT "* x E O xk 
PRINT "* x k k e k k Nk k 
PRINT "$ ado xk k xk e dE e OEA 
PRINT "$ 
II Ei 
FOR I=1 TO 12 

PRINT 
NEXT 1 
FOR I=1 TO 1000 
NEXT I 
LOCATE 15,1 
PRINT "(QUIERES INSTRUCCIONES? (S/N)" 
LET A$=INKEY$ 
IF A$="S" OR A$="s" THEN GOSUB 2340:GOTO 570 
IF A$="N" OR A$="n" THEN GOTO 570 
GOTO 530 
CLS 


4AA 4 n4.+..+, 


PRINT TAB(16);"D A MA S" 
PRINT TAB(15);"-=====----- e 
FOR I=1 TO 8 

LOCATE 3+2xI,14 


FOR 


J=1 TO 8 


PRINT". 003 
NEXT J 


NEXT I 


FOR I=0 TO 7 
LOCATE 3,13+2x1 
PRINT I 


NEXT 1 


FOR I=0 TO 7 
LOCATE 5+2*I,11 
PRINT I 


NEXT 1 
REM 


REM SSRSS SS S SOS S SISI S ESOO ESOS jOjSSjSjOlElSlOlOjOjOJOK 


REM *xxx*x* INICIALIZACION DEL PROGRAMA xxx 
REM RSS OSOS SS SISSI SSI jolOlOOK 
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780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 


REM 

DIM R(4) 

DIM S5(7,7) 

LET G=-1 

LET R(0)=-99 

DATA 1,0,1;0; 050, -1,0,0, 1,0, 0,0, -1;0, -1,15 
FOR X=0 TO 7 


FOR Y=0 TO 7 
READ J 
IF J=15 THEN GOTO 900 
S(X, Y)=J 
GOTO 920 
RESTORE 
READ S(X, Y) 
NEXT Y 


NEXT X 

REM 

REM SSSlSIS ISO lS OSOS SIRO SJlk 
REM * PROGRAMA PRINCIPAL x 
REM SSISMISIS SOS SS PSSS 
REM 

FOR X=0 TO 7 


FOR Y=0 TO 7 
IF S(X,Y)>-1 THEN GOTO 1040 
IF S(X,Y)=-1 THEN FOR A=-1 TO 1 STEP 2:B=G:GOSUB 1070:NEXT A 
IF S(X,Y)=-2 THEN FOR A=-1 TO 1 STEP 2:FOR B=-1 TO 1 STEP 2:GOSUB 107 


O:NEXT B:NEXT A 


1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 


NEXT Y 

NEXT X 

GOTO 1300 

LET U=X+A 

LET V=Y+B 

IF U<O OR V<0O OR U>7 OR V>7 THEN GOTO 1160 

IF S(U,V)=0 THEN GOSUB 1170:GOTO 1160 

IF S(U,V)<0 THEN GOTO 1160 

LET U=U+4 

LET V=V+B 

IF U<O OR V<O OR U>7 OR V>7 THEN GOTO 1160 

IF S(U,V)=0 THEN GOSUB 1170 

RETURN 

IF V=0 AND S(X,Y)=-1 THEN LET Q=Q+2 

IF ABS(Y-V)=2 THEN LET Q=Q+5 

IF 'Y=7 THEN LET Q=Q-2 

IF U=0 OR U=7 THEN LET Q=Q+1 

FOR C=-1 TO 1 STEP 2 
IF U+C<0O OR U+C>7 OR V+G<0 THEN GOTO 1260 
IF S(U+C,V+G)<0 THEN LET Q=Q+1:GOTO 1260 
IF U-C<O OR U-C>7 OR V-G>7 THEN GOTO 1260 
IF S(U+C,V+G)>0 AND (S(U-C,V-G)=0 OR (U-C=X AND V-G=Y)) THEN LET Q=Q-2 

NEXT C 

IF Q>R(0) THEN LET R(0)=Q:LET R(1)=X:LET R(2)=Y:LET R(3)=U:LET R(4)=V 

LET Q=0 

RETURN 

IF R(0)=-99 THEN GOTO 2240 

LOCATE 21,1 

PRINT SPACE$( 40) 

LOCATE 21,1 

PRINT "ME MUEVO DESDE":R(1);",";R(2);"A";R(3);",";R(4); 

LET R(0)=-99 

IF R(4)=0 THEN LET S(R(3),R(4))=-2:GOTO 1520 

LET S(R(3),R(4))=S(R(1),R(2)) 

LET S(R(1),R(2))=0 

IF ABS(R(1)-R(3))<>2 THEN GOTO 1520 


LET S((R(1)+R(3))/2, (R(2)+R(4))/2)=0 

LET X=R(3) 

LET Y=R(4) 

IF S(X,Y)=-1 THEN LET B=-2:FOR A=-2 TO 2 STEP 4:GOSUB 1470:NEXT A 


IF S(X,Y)=-2 THEN FOR A=-2 TO 2 STEP 4:FOR B=-2 TO 2 STEP 4:GOSUB 1470:NEXT 


B:ÑEXT A 


1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 


IF R(0)<>-99 THEN PRINT "Y A" R(3);",";R(4);:R(0)=-99:GOTO 1360 
GOTO 1520 

LET U=X+A 

LET V=Y+B 

IF U<O OR U>7 OR V<0 OR V>7 THEN GOTO 1510 

IF S(U,V)=0 AND S(X+A/2,Y+B/2)>0 THEN GOSUB 1170 
RETURN 

REM 

INE TES 

REM *x*x* DIBUJO DEL TABLERO *x*x 
INEA ES 

REM 


FOR Y=0 TO 7 
LOCATE 5+2*Y, 14 
FOR X=0 TO 7 
IF S(X,Y)=0 THEN PRINT ".-"; 
IF S(X,Y)=1 THEN PRINT "o ”; 
IF S(X,Y)=-1 THEN PRINT "x "; 
IF S(X,Y)=-2 THEN PRINT “X "; 
IF S(X,Y)=2 THEN PRINT "O ”; 
NEXT X 
NEXT Y 
PRINT 
FOR L=0 TO 7 


FOR M=0 TO 7 
IF S(L,M)=1 OR S(L,M)=2 THEN LET Z=1 
IF S(L,M)=-1 OR S(L,M)=-2 THEN LET T=1 
NEXT M 
NEXT L 
REM 
REM ASSSSSSS RSS” lSlOlSlSlSOolEOjokaOk 
REM * MOVIMIENTO DEL JUGADOR x 
REM ASMSSSS SNS SOS” SiS SlSjOlOlOjOK 
REM 
IF Z<>1 THEN GOTO 2240 
IF T<>1 THEN GOTO 2290 
LET T=0 
LET Z=0 
LOCATE 21,1 
PRINT SPACE$(40) 
LOCATE 21,1 
INPUT “MUEVES DESDE";E,H 
LET X=E 
LET Y=5 
IF S(X,Y)<=0 THEN GOTO 1830 
LOCATE 21,1 
PRINT SPACE$(40) 
LOCATE 21,1 
INPUT "HASTA ";A,B 
LET X=A 
LET Y=B 
IF S(X,Y)=0 AND ABS(A-E)<=2 AND ABS(A-E)=ABS(B-H) THEN GOTO 2050 
LOCATE 21,1 
PRINT SPACE$(40) 
LOCATE 21,1 
PRINT “MOVIMIENTO INVALIDO" 
BEEP 
FOR Z=1 TO 1000 
NEXT Z 
GOTO 1900 
LET 1=46 
LET S(A,B)=S(E,H) 
LET S(E,H)=0 
IF ABS(E-A)<>2 THEN GOTO 2220 
LET S((E+A)/2, (H+B)/2)=0 
LOCATE 21,1 
PRINT SPACE$(40) 
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2120 LOCATE 21, 1 

2130 INPUT "Y HASTA ";A1,B1 

2140 IF A1<O THEN GOTO 2220 

2150 IF S(A1,B1)<>0 OR ABS(A1-A)<>2 OR ABS(B1-B)<>2 THEN GOTO 2100 
2160 LET E=A 

2170 LET' H=B 

2180 LET A=A1 

2190 LET B=B1 

2200 LET I=1+15 

2210 GOTO 2060 

2220 IF B-=7 THEN LET S(A,B)=2 

2230 GOTO 990 

2240 LOCATE 21,1 

2250 PRINT SPACE$(40) 

2260 LOCATE 21,1 

2270 PRINT "TE HE GANADO. ERES MALISIMO" 
2280 GOTO 2920 

2290 LOCATE 21,1 

2300 PRINT SPACE$(40) 

2310 LOCATE 21,1 

2320 PRINT "ME HAS GANADO. DE CHORRA. ” 
2330 GOTO 2920 

2340 CLS 

2350 PRINT TAB(14);"INSTRUCCIONES" 

2300 PRINT TADCLI):> ===> == ooo” 
2370 PRINT 

2380 PRINT " Este es el famoso juego de tablero lla" 
2390 PRINT "mado << DAMAS >>" 


2400 PRINT 

2410 PRINT " Tu oponente sera el propio ordenador. " 
2420 PRINT 

2430 PRINT " La ficha del ordenador sera una X." 
2440 PRINT 

2450 PRINT " Tu ficha sera una O. 

2460 PRINT 

2470 PRINT " El ordenador movera primero. " 

2480 PRINT 

2490 PRINT " Cuando no puedas mover, introduce dos " 
2500 PRINT "núme: os negativos. Por ejemplo -1,-1" 
2510 PRINT 

2520 PRINT " Si puedes mover más de una vez seguida" 


2530 PRINT "el ordenador te pedirá las coordenadas. 
2540 LOCATE 22,1 

2550 PRINT "PULSA UNA TECLA” 

2560 LET A$=INKEY$ 

2570 IF A$="" THEN GOTO 2560 

2580 CLS 

2590 PRINT " Cuando te muevas, tendrás que referirte" 
2600 PRINT "al siguiente sistema de coordenadas. " 
2610 FOR I=-1 TO 8 

2620 LOCATE 4+2x*I,14 

2630 FOR J=1 TO 8 


2640 PRNDO". 23 
2650 NEXT J 
2660 NEXT I 


2670 FOR I=0 TO 7 

2680 LOCATE 4,13+2*I 
2890 PRINT 1 

2700 NEXT 1 

2710 FOR I=0 TO 7 

2720 LOCATE 6+2*I,11 
2730 PRINT 1 

2740 NEXT 1 

2750 LOCATE 23,1 

2760 PRINT "ESTA POSICION ES (5,3)"; 
2770 FOR 1=1 TO 10 

2780 LOCATE 12,24 
2790 PRINT " 


2800 FOR J=1 TO 200 
2810 NEXT J 

2820 LOCATE 12,24 
2830 PRINT "." 

2840 FOR J=1 TO 200 
2850 NEXT J 

2860 NEXT 1 

2870 LOCATE 22,1 

2880 PRINT " 
(+ o PAE 
2890 FOR I=1 TO 1000 

2900 NEXT 1 

2910 RETURN 

2920 REM 

2930 REM AsRSS ISS lSS SES lOIS SO JSOlOOJOJOK 
2940 REM * OTRA PARTIDA? (S/N) * 
2950 REM dsSRSS RSS OSHO SIS ISS IOIOIOKOJOK 
2960 REM 

2970 FOR I=1 TO 2000 

2980 NEXT 1 

2990 LOCATE 21,1 

3000 PRINT SPACE$(40) 

3010 LOCATE 21,1 

3020 PRINT "OTRA PARTIDA? (S/N)" 
3030 LET A$=INKEY$ 

3040 IF A$="" THEN GOTO 3030 

3050 IF A$="S" OR A$="s" THEN RUN 


3060 IF A$="N" OR A$="n"” THEN GOTO 3080 


3070 GOTO 3030 

3080 REM 

3090 REM dsSSSOOOOOO OJO 
3100 REM*ADIOS*. 
3110 REM AsdMSSOSOlOjOjOKOKk 
3120 REM 

3130 CLS 


Primero tienes que dar la coordenada en X y después la coordenada 


3140 PRINT "ADIOS. ME HA ENCANTADO JUGAR CONTIGO. " 


3150 PRINT:PRINT:PRINT 
3160 END 


El programa está realizado en un IBM 
bajo GWBASIC. Para utilizar este mismo 
programa en el COMMODORE, AMSTRAD 
y MSX hay que realizar los siguientes 
cambios: 


COMMODORE 


270 PRINT CHR$(147) 

280 POKE 214,11:POKE 211,8 
300 POKE 214,13:POKE 211,1 
340 POKE 214,23:POKE 211,0 
510 POKE 214,20:POKE 211,0 
530 GET AS 

570 PRINT CHR$(147) 

610 POKE 214,2+2"1:POKE 211,13 
670 POKE 214,2:POKE 211,12+2"! 


3 


710 POKE 214,4+2"1:POKE 211,10 
1310 POKE 214,21:POKE 211,0 
1320 PRINT SPC(40) 

1330 POKE 214,21:POKE 211,0 
1580 POKE 214,4+2*"Y:POKE 211,13 
1830 POKE 214,21:POKE 211,0 
1840 PRINT SPC(40) 

1850 POKE 214,21:POKE 211,0 
1900 POKE 214,21:POKE 211,0 
1910 PRINT SPC(40) 

1920 POKE 214,21:POKE 211,0 
1970 POKE 214,21:POKE 211,0 
1980 PRINT SPC(40) 

1990 POKE 214,21:POKE 211,0 
2010 REM 

2100 POKE 214,21:POKE 211,0 
2110 PRINT SPC(40) 
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2120 POKE 214,21:POKE 2 
2240 POKE 214,21:POKE 2 
2250 PRINT SPC(40) 

2260 POKE 214,21:POKE 211, 
2290 POKE 214,21:POKE 211 
2300 PRINT SPC(40) 

2310 POKE 214,21:POKE 211,0 
2340 PRINT CHR$(147) 

2540 POKE 214,22:POKE 211,0 
2560 GET AS 

2580 PRINT CHR$(147) 


— 


1,0 
1,0 
0 
0 


2620 POKE 214,3+2"1:POKE 211,13 
2680 POKE 214,3:POKE 211,12+2"! 
2720 POKE 214,5+2"1:POKE 211,10 


2750 POKE 214,23:POKE 211,0 


2780 POKE 214,11:POKE 211,23 
2820 POKE 214,11:POKE 211,23 


2870 POKE 214,22:POKE 211,0 
2990 POKE 214,21:POKE 211,0 
3000 PRINT SPC(40) 

3010 POKE 214,21:POKE 211,0 
3030 GET AS 

3130 PRINT CHR$(147) 


AMSTRAD Y MSX 


280 LOCATE 9,12 

340 LOCATE 1,23 

510 LOCATE 1,15 

610 LOCATE 14,3+2*1 
670 LOCATE 13+2*1,3 
710 LOCATE 11,5+2*l 
1310 LOCATE 1,21 
1330 LOCATE 1,21 
1580 LOCATE 14,54+2*Y 
1830 LOCATE 1,21 
1850 LOCATE 1,21 
1900 LOCATE 1,21 
1920 LOCATE 1,21 
1970 LOCATE 1,21 
1990 LOCATE 1,21 
2100 LOCATE 1,21 
2120 LOCATE 1,21 
2240 LOCATE 1,21 
2260 LOCATE 1,21 
2290 LOCATE 1,21 
2310 LOCATE 1,21 
2540 LOCATE 1,22 
2620 LOCATE 14,4+2"! 
2720 LOCATE 11,6+2"! 
2750 LOCATE 1,23 
2780 LOCATE 24,12 
2820 LOCATE 24,12 
2870 LOCATE 1,22 
2990 LOCATE 1,21 
3010 LOCATE 1,21 


01234567 
o. «0.0% 


2 

A - 
As 
E 
ARMA 


CO O 
| ME MUEVO DESDE 3 ,5A1, 


MOVIMIENTO INVALIDO 


[A El programa testea si nuestros movimientos 
son válidos. 


O Programa: Comecocos 
para Spectrum 


El siguiente programa nos va a permitir 
jugar al famoso COMECOCOS. Poco hay 
que decir sobre el objetivo del juego, ya 
que es conocido por todo el mundo. 
Todo consiste en mover un pequeño per- 
sonaje en forma de queso por el laberin- 
to que hay en la pantalla, y comerse to-: 
dos los puntos antes de que los fantas- 
mas del laberinto te coman a ti. 


y > *, > 
COMECOCOS POR CARLOS DORAL 
Lebes comer todos los puntos que 
AGO VEO traz en el comino evi - 
tando 03 encuentros con tos e: 
155 varientes que puedan desmbu- 
Lar Por tan recondiltos tugares. 


Utilaza 4 tect Le S 
os 13 - 2.9 0,10,0 y > 


F mover 


PULSA UNA TECLA 


Para mover el quesito por la pantalla 
tienes que utilizar las siguientes teclas: 


QA — Izquierda 
W — Derecha 
O — Arriba 
K — Abajo 


Í El laberinto donde está perdido el quesito. 


10 REM RSS ISSO lSlllS lola lojolOlojoloK 

20 REM katotokaok COMECOCOS ajotolotooK 

30 REM aso IS SISMOS IOlolOJOIJOJOK 

40 REM x*x*x POR CARLOS DORAL xx 

B0 REM aaa lO lalalala jojojoK 

55 REM 

60 BORDER O 

70 PAPER O 

80 INK 7 

90 CLS 

100 LET a$=" COMECOCOS POR CARLOS DORAL” 
110 FOR f=LEN a$ TO 3 STEP -1 

120 FOR c=f-3 TO f-2 

130 PRINT AT 8,05” “; INK_2; PAPER 5jas(f TO f) 
140 NEXT c 

150 NEXT f 

160 PRINT 


170 PRINT "Debes comer todos los puntos quete encuentres en el camino evi -tand 
o los encuentros con los se-res vivientes que puedan deambu-lar por tan recondit 


os lugares.." 

172 PRINT. : PRINT 

174 PRINT " Utiliza las teclas Q,W,O y K para moverte. " 
180 PRINT AT 21,9; FLASH 1;"PULSA UNA TECLA” 
190 IF INKEY$="" THEN GO TO 190 

200 CLS 

210 LET vi=3 

220 LET v$=CHR$ 144+CHR$ 144+CHR$ 144 

230 LET pu=0 

240 LET p=0 

250 GO SUB 1870 

255 REM 

260 REM RSS SNS SISSI llSISIVIVIOJOK: 

270 REM *DIBUJO DEL LABERINTOX* 

280 REM ASSSSSSSSlSlSlOlPlSlSlOlOlOIOlOiOJOK 


290 REM 

310 PRINT "esccccocccoLccnLccrcccccrcccrccznrzncaceV. * 
ILOAPRINES Mo lo aa a a aia e" 
330 PRINT "e.€.ece, eo. co. ccoo. eo. eco. ecce, e” 
JO PRINT" 9.0.0. 200300050 00,0....0,04,0” 
350 PRINT "6... 000.,0...,04.40.E..,4,40,04,0,0" 
360 PRINT "e,Q.0..... e.(4006.40.4,04,.02.04,0,0" 
ITO-PRINTT 070... ss Q,0ee..... e" 
380 PRINT "0.0.E.EE,EE.V0E+ ES, CE. CE, .LCE. E" 
390 PRINT "e.e.e4....00.0E  ...... 0.Ecc0. e" 
400 PRINT "e,e.ecee.e...o  0.0.0,00....O,O" 
410 PRINT "e.,f...... e.c.e e,..0....00.0,e" 
420 PRINT "e.e.e.ee.e.c.eo  €.0.4.,EcVE.E.a" 
430 PRINT ",.,.,4.0e...C.Oe €...0.e.,,.O.e.e" 
440 PRINT "Q.€.O. 600. 00. CEEEE. LE .2.e.e.e. e” 
ADOCEREN IT: AOS ns a oa, ..0,0,0,0" 
460 PRINT "0.0.4.000.0.0.Q4., ELECO. EE...,O.Q” 
GTOGPRINT< 30. Me e e 000.,0,0" 
480 PRINT "0.000, E. SECECCCVEVVAN.. SS. SEE. E, E" 
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490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 


PLN A ai 
PRINT*-" ¡QUA 


PRINT AT 21,15;"PUNTOS= ";pu 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


x=16 
y=16 
es$="" 
w$="" 
qs="" 
x1=10 
y1=1 
x2=15 
y2=4 
x3=11 
y37-18 
x4=1 
y4=-18 


PRINT AT y,x;CHR$ 144 
POKE 23658,8 


LET 


IF k$="Q" THEN IF 
: LET a$=SCREEN$ (y,x): 


k$=INKEYS$ 


690 IF k$="W" THEN 


: LET a$=SCREEN$ (y,x): 


700 IF k$="0" THEN 


: LET a$=SCREEN$ (y,x): 


710 IF k$="K" THEN 


: LET a$=SCREEN$ (y,x): 


720 
730 
740 
750 
760 
770 
780 
785 
790 
800 
810 
815 
820 
830 
840 


REEN$ (y1,x1): 


SCREEN$ (y,x-1)<>"0" THEN 
PRINT AT y,x;CHR$ 145: IF 
SCREEN$ (y,x+1)<>"0" THEN 
PRINT AT y,x;CHR$ 144: IF 
SCREEN$ (y-1,x)<>"0" THEN 
PRINT AT y,x;CHR$ 146: IF 
SCREEN$ (y+1,x)<>"" THEN 
PRINT AT y,x;CHR$ 147: IF 


IF pu=3060 THEN GO TO 1170 
GO SUB 820 
GO SUB 870 
GO SUB 950 
IF ATTR (y,x)<>7 THEN GO SUB 1030 
PRINT AT 21,0;v$;AT 21,23;pu 

GO TO 660 


REM 


LET 


AOOIOOO OOO OOO OSO OROOIOOJOJOJOK 


dolololok MARCIANO-1 datalooKK 
Yala lafO lalala flojo la jolojolajojojoK 


i=SGN (x-x1) 
a=SGN (y-y1) 


IF SCREEN$ (y1,x1+i)<>"0" THEN LET x1i=x1+i: 


PRINT AT y1,x1; 


INK 1;CHR$ 148 


850 IF SCREEN$ (yl+a,x1)<>"0" THEN LET yi-yl+a: 


REEN$ (y1,x1): 


860 RETURN 


865 
870 
880 
890 
895 
900 
910 
920 


REEN$ (y2,x2): 


REM 


PRINT AT y1,x1; 


INK 1;CHR$ 148 


REM SOS lO SISSI llOOOIOIOIOIOJOK 
REM xoxo MARCIANO-2 dotookook 
REM dsSSSSSSISOjSjSISlSjSlSlOllTllJVJAK 


REM 
LET 
LET 


i=SGN (x-x2) 
a=SGN (y-y2) 


IF SCREEN$ (y2,x2+i)<>"0" THEN LET x2=x2+i: 


PRINT AT y2,x2; 


INK 2;CHR$ 148 


930 IF SCREEN$ (y2+a,x2)<>"0" THEN LET y2=y2+a: 


REEN$ (y2,x2): 


940 
945 
950 
960 
970 
975 
980 
990 
1000 


RETURN 


REM 
REM 
REM 
REM 
REM 
LET 
LET 


PRINT AT y2,x2; 


INK 2;CHR$ 148 


lO lS ISSO lalala IOIOIOIOIK 
dolo MARCIANO-3 dolotototoK 
OS 


i=SGN (x-x3) 
a=SGN (y-y3) 


IF SCREEN$ (y3,x3+i)<>"0" THEN LET x3=x3+i: 
REEN$ (y3,x3): PRINT AT y3,x3; INK 4;CHR$ 148 
1010 IF SCREEN$ (y3+a,x3)<>"" THEN LET y3=y3+a: 


PRÍNT AT y1,x1-i;a$: 


PRINT AT y1-a,xl;a$: 


PRINT AT y2,x2-i;w$: 


PRINT AT y2-a,x2;w$: 


PRINT AT y3,x3-i;e$: 


PRINT AT y3-a,x3;e$: 


x=x-1: PRINT AT y,x+1;" " 
' THEN LET pu=pu+10 
x=x+1: PRINT AT y, x-1;"” " 
' THEN LET pu=pu+10 
y=y-1: PRINT AT y+1,x;" " 


." THEN LET pu=pu+10 


y=y+1: PRINT AT y-1,x;" “ 
' THEN LET pu=pu+10 


LET q$=SC 


LET a$=SC 


LET w$=SC 


LET w$=5C 


LET e$=5C 


LET e$=5C 


REEN$ (y3,x3): PRINT AT y3,x3; INK 4;CHR$ 148 


1020 
1025 
1030 
1040 
1050 
1055 
1060 
1065 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1165 
1170 
1180 
1190 
1195 
1200 
1210 
1220 


“RETURN 


REM 
REM eS IS SS IS OSOS Sl” lS ISO lOJolOJOK 
REM dota MUERTO AdMokolololokoK 
REM AMSMSSSSSS OSOS OSOS OSO OK 
REM 
PRINT AT 10,6; FLASH 1;" **MUERTOXxx*" 
REM 
FOR f=30 TO 20 STEP -5 

BEEP .5,F 
NEXT f 
LET vi=vi-1 
IF vi<O THEN GO TO 1750 
LET v$=v$( TO vi) 


PRINT AT 21,0; FLASH 1;" PULSA UNA TECLA 
IF INKEY$="" THEN GO TO 1140 

CLS 

GO TO 260 

REM 


REM ARSRMRSSSSSO OSOS ”i”iO iiO lOjOjOJOk 
REM *xx* FIN DE PANTALLA **x* 
REM O ASSSSS OSOS IOIO OOOO OK 
REM 

CLS 

LET b=31 


LET'a$=CHR$ 16+CHR$ 2+CHR$ 148+" "+CHR$ 16+CHR$ 4+CHR$ 148+" "+CHR$ 16+CHR$ 


3+CHR$ 148+" " 


1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 


n —-tasmas de las oscuras catacumbasenvejecidas por el monotono rras-treo de sus 


FOR f=26 TO 3 STEP -1 
PRINT INK 1;AT 10,f;a$ 
IF £f<18 THEN PRINT AT 10,b;CHR$ 145+"  ": LET b=b-2. 
IF b<7 THEN LET a$=-a$( TO LEN a$-4) 
FOR x=1 TO 5: NEXT x 
NEXT f 
FOR f=3 TO 27 
PRINT AT 10,f; INK 6;" "+CHR$ 144 
BEEP .005,30 
NEXT f 
FOR f=10 TO 15 
PRINT AT f,28; INK 6;CHR$ 147;AT f-1,28;" ” 
BEEP .005,50 l 
NEXT £ 
LET a=144 
FOR f=1 TO 21 


PRINT AT 15,28; INK 6;CHR$ a 
LET a=a+1 
IF a-148 THEN LET a-=144 
FOR x=1 TO 4 
NEXT x 
BEEP .05,-50+INT (RNDx100) 
NEXT f 
PRINT AT 3,0;" Has conseguido comer los 306 huevecillos de los celosos fa 


omisas extremidades" 


1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 


PRINT AT 13,10; FLASH 1;"BONOS ";vix1000 
PRINT AT 15,0;"Puntuacion ";pu;”"+";vix1000;"=";pu+vix1000 
PRINT AT 21,9; FLASH 1;"PULSA UNA TECLA" 
IF INKEY$="" THEN GO TO 1500 
FOR f=15 TO O STEP -1 
¿PRINT AT f,28; INK 6;CHR$ 146;AT f+1,28;" " 
NEXT f 
FOR f=-28 TO O STEP -1 


PRINT AT 0,f; INK 6;CHR$ 145+" " 
NEXT f 
PRINT AT 0,0;" ";AT 1,0; INK 6;CHR$ 144 
IF INKEY$="" THEN GO TO 1580 


LET a=7: LET b=3 
PRINT AT 1,0;" " 


a PROGRAMAS 


1610 FOR w=1 TO 2 
1620 FOR c=b TO a 


1630 FOR f=0 TO 30 

1640 PRINT AT c,f; INK 6;" "+CHR$ 144 
1650 NEXT f . 

1660 PRINT-AT 0,315” ” 


1670 NEXT c 
1680 LET a=21 
1690 LET b=13 
1700 NEXT w 
1710 CLS 
1720 LET p=p+pu 
1730 LET pu=0 
1740 GO TO 260 
1745 REM . 
1750 REM AdMRSSSSaSlO ESOO loldO lalola lololololok 
1760 REM ** FINAL DE PARTIDA x*x*x 
1770 REM asalalaÓlÓlSlOlOlolVISIOlSllRlSlSlOJlJOK 
1775 REM 
1780 CLS 
1790 PRINT AT 10,2;"Tu puntuacion ha sido= ";p 
1800 PRINT *" Lastima, parecias bueno. " 
1810 PRINT " No te preocupes, cuenta con mi compasion. " 
1820 PRINT $0; FLASH 1;" QUIERES JUGAR OTRA (S/N) ? a 
1830 LET k$-INKEY3 
1840 IF k$="S" OR k$="s" THEN GO TO 200 
1850 IF k$="N" OR '="n" THEN GO TO 2030 
1860 GO TO 1830 
1365 REM 
1870 REM d+RsdSSSS SS IR OIS OSOS lOIOIOlOlOOK 
1880 REM ootokk* GRAFICOS ooookok 
1890 REM AdsdRSRSSS IE SSJS SOS lOlOjSldOIOJOJOK 
1895 REM 
1900 RESTORE 1980 
1910 FOR f=97 TO 101 
1920 FOR c=0 TO 7 
1930 READ a 
1940 POKE USR (CHR$ f)+c,a 
1950 NEXT c 
1960 NEXT f 
1970 RETURN 
1980 DATA 0, 28,62, 124, 120, 124,62, 28 
1990 DATA 0,56, 124, 62,30,62, 124,56 
2C00 DATA 0, 34, 119,127,127,62,28,0 
SM 2010 DATA 0,56, 124, 254, 254, 238,68,0 A 
2020 DATA 56, 124, 214, 254, 238, 254, 170,170 


Cada vez que termines una pantalla 
después de comerte los 306 puntos que 
la componen, según el tiempo que hayas 
tardado en hacerlo, el ordenador te re- 
galará más o menos puntos. 


SONOS 30009 
motusción 1244 + 2000-1734 4 


PAEZ A TECLA 


> El programa nos da bonos cada vez que 
completamos una pantalla. 


SI como la toma de 
datos es básica para 
que las informacio- 
nes que procesa el 
ordenador sean váli- 
das igual que los re- 
sultados obtenidos, 
la presentación final 
de estos datos de salida es muy impor- 
tante, para que sean de verdad útiles y 
se obtenga toda la eficacia que se espe- 
ra del proceso informático realizado. 

Los documentos de salida de una apli- 
cación informática son como la «tarjeta 
de visita» o «cara externa» del sistema y, 
por tanto, han de cuidarse también en su 
aspecto general. 

Es decir, básicamente dos son los as- 
pectos a considerar en el diseño de un 
documento de salida: el aspecto gene- 
ral (formato, presentación, tamaño, distri- 
bución de las informaciones, etc.) y con- 
tenido (seleccionado, presentado de un 
modo claro, ordenado, etc.). 

Respecto del primero de estos aspec- 
tos, hay que tener en cuenta varias ca- 
racterísticas: 

a) Preimpresión del papel. Se llama 
preimpreso a un documento en que es- 
tán impresas, antes de su paso por la im- 
presora del ordenador, un conjunto de 
informaciones: cabeceras, rótulos fijos, lí- 
neas de recuadros, dibujos, etc. 

La presentación de un documento 
preimpreso es más agradable que si 
toda la información se escribe en la im- 
presora del ordenador (1). 


TECNICAS 
DE ANALISIS 


DOCUMENTOS DE SALIDA: PREIMPRESOS 


El diseño e ¡iinpresión de un documen- 
to preimpreso, sin embargo, suelen ser 
caros, por lo que normalmente no está 
justificada en un entorno de informática 
personal (ni, en ocasiones, a nivel profe- 
sional; aunque en este caso intervienen 
otros factores de imagen, prestigio, etc.). 

Además, la preparación de la impre- 
sión es más complicada. En efecto, a 
poco contenido que tenga el documen- 
to preimpreso, hay que ajustar cuidado- 
samente el pa, el para que cada dato se 
escriba en su lugar correspondiente: los 
programas o rutirnas que han de imprimir 
los resultados suelen tener previsto al co- 
mienzo un bucle que escribe una hoja si- 
mulada completa (con datos falsos) y 
pregunta si el impreso está ya ajustado 
(en altura y a derecha e izquierda); mien- 
tras se conteste que no, se sigue repitien- 
do el bucle hasta que el papel queda 
perfectamente ajustado. Este proceso es 


(1) Nos estamos refiriendo a las impresoras con- 
vencionales (de matriz de puntos, de líneas, de 
chorro de tinta, etc.); un caso aparte lo constitu- 
yen las “impresoras láser” en las que se suele im- 
primir no sólo los textos y números variables sino 
las informaciones permanentes y hasta dibujos, fir- 
mas, etc., sin pérdida de velocidad. Sin embargo, 
este tipo de impresoras es aún caro comparativa- 
mente con el resto de las impresoras de ordena- 
dor, aunque hoy en día hay máquinas láser pe- 
queñas para su conexión a ordenador de tipo pro- 
fesional (PC y compatibles) a un precio módico 
(relativamente). En cualquier caso, una impresora 
láser sólo se justifica si se han de imprimir un nú- 
mero considerable de documentos y/o éstos se 
pretende que tengan gran calidad. 


2 TECNICAS DE ANALISIS 


muy útil sobre todo si el preimpreso es en 
papel continuo, pues una vez ajustado 
queda ya fijo durante toda la impresión 
a realizar (hasta que se cambia de mo- 
delo de papel): si el papel es de hojas 
sueltas, se suele poner en él una marca 
para ajustarlo en la impresora (con la es- 
cala numerada que las impresoras sue- 
len tener) al ir introduciendo cada hoja. 


Otra dificultad que existe cuando se 
prepara un documento en papel preim- 
preso es que no se puedan introducir mo- 
dificaciones: en efecto, aparece un co- 
flicto entre el interés de que cada hoja 
preimpresa resulte barata (haciendo una 
gran tirada; a «consumir» o utilizar, por 
tanto, en un período largo de tiempo) y 
la flexibilidad necesaria para poder in- 
troducir cambios (sin tener que desperdi- 
ciar una cantidad grande de hojas 
preimpresas que ya se tengan prepara- 
das). Una pequeña modificación o la 
corrección de un error que puede supo- 
ner un problema menor a nivel de pro- 
grama, es una dificultad grande (costo- 
sa, sobre todo) cuando se tiene preim- 
presa una cantidad grande de papel. De 
hecho ésta es una de las mayores dificul- 
tades del uso de preimpresos en los cen- 
tros de proceso de datos, sobre todo en 
las aplicaciones de nueva implantación 
(durante la fase de control y ajuste de los 
procesos). 


Por otro lado, hay que tener en cuenta 
que hay muchos tipos diferentes de 
preimpresos; en hoja suelta o en papel 
continuo, en papel con copia (papel de 
calco o «autocopiativo») o sólo original 
(escribiendo, incluso en ocasiones, va- 
rias veces cada página para tener diver- 
sos originales, en vez de tener original y 
copia) o tipos especiales de preimpre- 
sos: sobre completo de contenido fijo en 
el que se escriben, solamente, los datos 
del destinatario; sobre con una «banda 
de ocultación» (zona donde están preim- 
presos de un modo anárquico cantidad 
de caracteres y números que se sobre- 
ponen para que no se lea en el sobre lo 
escrito por el ordenador, aunque sí se lee 
en la copia autocopiativa que se en- 
cuentra en su interior), etc. 

Sin embargo, a pesar de todas las difi- 
cultades expuestas, los preimpresos son 
ampliamente utilizados. Aparte el hecho 
de que proporcionan un aspecto más 
«profesional» al impreso resultante (razón 


básica para su uso en la mayoría de los 
casos), proporcionan algunas ventajas 
adicionales: 


a) el coste puede ser menor si se ha- 
cen grandes tiradas: en efecto, la escri- 
tura de los textos fijos de un impreso sue- 
le costar de 2 a 4 veces menos en un 
preimpreso que si se hace con la impre- 
sora del ordenador (dependiendo de la 
cantidad de texto a escribir, de su distri- 
bución en la página, etc., y del tipo de 
equipo informático —ordenador e impre- 
sora— que se esté utilizando); 

b) la «riqueza» gráfica es mayor, pues 
excepto que se utilicen impresoras gráfi- 
cas de coste más alto y velocidad más 
baja, con un ordenador sólo se pueden 
representar los caracteres alfabéticos, 
los números y unos cuantos símbolos es- 
peciales, junto con rayas y puntos. Por el 
contrario, en el preimpreso se puede im- 
primir cualquier gráfico, símbolo, anagra- 
ma, etc. (e incluso imprimir a varios colo- 
res); 

c) ahorro de tiempo de máquina. En 
ocasiones el gasto de tiempo de ordena- 
dor es una dificultad no sólo por el coste 
(ya comentado), sino porque se ocupa el 
equipo en una tarea evitable; 

d) ahorro de espacio. La variedad ti- 
pográfica es mayor en una imprenta que 
en la impresora del ordenador: por ello, 
los comentarios, explicaciones, instruc- 
ciones de uso, claves, etc., se pueden im- 
primir en letra menor que la de la impre- 
sora del ordenador. Por otro lado, las lí- 
neas de separación o los recuadros de 
enmarcar textos se puede prever que 
vayan entre dos líneas o dos caracteres 
de los que va a imprimir el ordenador; 

e) claridad en la distribución de los 
datos, no sólo porque se pueden introdu- 
cir más tipos de líneas, cuadros, etc., sino 
porque se pueden incluir sombreados, 
rayados, etc., que si se realizan con el or- 
denador ensombrecen, en cantidad de 
ocasiones, más que aclaran los datos a 
observar. 

En función de todos los elementos pre- 
sentados es importante, especialmente 
desde el punto de vista económico, la 
decisión de hacer o no un preimpreso y, 
caso que se decida imprimirlo, aprove- 
char todas sus posibilidades para mejo- 
rar la claridad y cantidad de datos a pre- 
sentar así como la facilidad de explota- 
ción. 


Instrucciones 
condicionales 


EAMOS ahora cómo 
se escriben las ins- 
trucciones condicio- 
nales en el lenguaje 
PASCAL. Al igual que 
en BASIC, se utilizan 
las palabras reserva- 
das inglesas IF, THEN, 
ELSE, para construirlas. Por tanto, la forma 
general de la instrucción condicional 
sera: 


IF condición 
THEN acción-1 
ELSE acción-2; 


donde acción-1 y acción-2 pueden ser 
instrucciones de cualquier tipo: bloques 
secuenciales, instrucciones condiciona- 
les, bucles, asignaciones de valor, etc. 

La única diferencia con relación al BA- 
SIC es el punto y coma que hay que co- 
locar en PASCAL al final de todas las ins- 
trucciones. 

Veamos cómo se escribe en PASCAL el 
ejemplo BASIC que vimos en el capítulo 
anterior: 


program EJEMPLO; 
var 
Xa Ys Z: integer; 
begin 
readin(x,y); 
if x=0 then 
if y=0 then z:=0 
else 
if y=1 then z:=1 
else z:=2 
else 
if x=1 then z:2=3 
else z:=4; 
writeln (z); 
end. 


TECNICAS 
DE PROGRAMACION 


cuyo organigrama y funcionamiento es 
practicamente identico: 


Oy oo 
-E 0% 


G 
nz 


oz 


R 
O 
2 
Ru 
1 
5 
R 


UN 
1 


G 
Nz 


G 
oz 


pa BbNI ANTI UrTI dG 
nz m3 


Observando los puntos y comas, que 
señalan el final de cada instrucción, pue- 
de verse que, al igual que el programa 
BASIC, el programa PASCAL tiene tres ins- 
trucciones ejecutables, una de las cua- 
les es muy larga. Veámosla en forma ais- 
lada: 


if x=0 then 
14 y-ú then z:=0 


else 
if y=1 then z:=1 
else z:=2 
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else 
if x=1 then z:=3 
else z:=4; 


A esta instrucción le corresponde 
exactamente el mismo organigrama que 
a la instrucción BASIC correspondiente. 

También en PASCAL puede ocurrir que 
la instrucción condicional sea incomple- 
ta, careciendo de cláusula ELSE: 


IF condición 
THEN acción-1; 


donde acción-1 puede ser una instruc- 
ción de cualquier tipo. En particular, po- 
dría ser otra instrucción condicional. 
¿Qué ocurrirá si esta vez se trata de un IF- 
THEN-ELSE completo? Es decir, si tenemos 
una sola cláusula ELSE y dos cláusulas 
THEN, ¿con cuál de ellas debe asociarse 
la primera? La forma que adoptaría la 
instrucción sería la siguiente: 
IF condición-1 
THEN IF condición-2 
THEN acción-1 
ELSE acción-2; 


Pues bien: al igual que en BASIC, en 
PASCAL se supone que la cláusula ELSE va 
siempre emparejada con la cláusula 
THEN más próxima que no tenga pareja. 
Por tanto, el organigrama correspondien- 
te a este ejemplo sería el siguiente: 


y es el primer THEN de la instrucción el 
que se queda sin pareja. 

Si quisiéramos forzar al compilador a 
adoptar la opción contraria, emparejan- 
do la cláusula ELSE con la primera cláu- 
sula THEN, en lugar de la segunda, po- 
dríamos conseguirlo así: 


IF condición-1 
THEN BEGIN 
IF condición-2 
THEN acción-1 
END 
ELSE acción-2; 


cuyo organigrama es: 


(A Fig. 2. 


Veamos ahora un ejemplo de una ins- 
trucción condicional PASCAL cuya condi- 
ción sea algo más compleja que las an- 
teriores: 


Esta línea suma 1 al valor de la varia- 
ble y si el valor de la variable x es menor 
que 3 o mayor que 6. 

Por último, veamos cómo se puede in- 
troducir un bloque secuencial en una ins- 
trucción condicional PASCAL: 


if i=68 then 
begin 

x2i=x+13 

y:=y+1; 

writelní(x,” ”,y) 


writeln(y,” *,x) 
end; 


donde la misma instrucción IF-THEN-ELSE 
contiene dos bloques, uno en la parte 
THEN y otro en la parte ELSE. Veamos el or- 
ganigrama correspondiente: 


lA)... 


En el lenguaje APL no existe la instruc- 
ción IF-THEN-ELSE cecmo tal. En primer lu- 
gar, no hay palabras reservadas en in- 
glés (ni en ninguna otra lengua), sino sólo 
simbolos. En segundo lugar, el control de 
la marcha de los programas no se espe- 
cifica mediante las instrucciones típicas 
de la programación estructurada, sino 
mediante la transferencia generalizada, 
que estudiaremos más adelante. 

Sin embargo, no es difícil simular la es- 
tructura IF-THEN en APL, mediante la si- 
guiente construcción: 


* (condición) / 'instrucción' 


que podemos leer: «Si condición, enton- 
ces instrucción». Obsérvese, sin embar- 
go, que la instrucción a realizar debe es- 
pecificarse entre comillas. La razón de 
esto es la siguiente: en APL, una condi- 
ción es una expresión lógica, cuyo valor 
será cero (si la expresión es verdadera) 
o uno (si la expresión es falsa). 

La operación «selección», representa- 
da por una línea inclinada (/) realiza la 
siguiente acción: a su izquierda debe ha- 
ber una serie de ceros y unos, y a su de- 
recha, una serie cualquiera de datos nu- 
méricos o alfabéticos. Las dos series de- 
ben tener la misma longitud. El resultado 
de esta operación es una nueva serie, 
del mismo tipo que la serie de la dere- 
cha, donde sólo aparecerán los elemen- 
tos de ésta que correspondan a los unos 
de la serie de la izquierda, mientras que 
los que correspondan a los ceros habrán 
desaparecido. 

Además, la serie de la izquierda pue- 
de reducirse a un solo elemento, inde- 
pendientemente de los que tenga la se- 
rie de la derecha. Se entiende que este 
elemento (un 1 o un 0) se extenderá au- 
tomáticamente a todos los de la serie de 
la derecha. Por tanto, la expresión 1/se- 
rie dará como resultado la misma serie 
de la derecha, mientras que 0/serie eli- 
minará todos los elementos de ésta y 
dará como resultado la serie vacía. 

Veamos algunos ejemplos: 


1:0., E DERLALI52. 378.5 


11100u41m/ 'CASONA' 


O / '*CASONA” 


1 / 'CASONA'" 


Por tanto, la instrucción que simula la 
construcción IF-THEN se reduce en la 
práctica a uno de los dos casos siguien- 
tes: 
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1. Sila condición es verdadera: 


£ 1 / 'instrucción' 


que se reduce a: 


,' 


* 'instrucción' 


El símbolo situado a la izquierda de la 
expresión anterior ejecuta la instrucción 
expresada entre comillas. Por tanto, si la 
condición es verdadera, la instrucción se 
ejecuta. 

2. Sila condición es falsa: 


que se reduce a: 


El símbolo situado a la izquierda de la 
expresión anterior ejecuta la instrucción 
vacía expresada entre comillas (es de- 
cir, no ejecuta nada). Por tanto, si la con- 
dición es falsa, la instrucción no se eje- 
cuta. 

Resumiendo, el efecto de la expresión 
anterior es el siguiente: 


1. Sila condición es verdadera, la ins- 
trucción dada entre comillas se ejecuta. 
2. Si la condición es falsa, la instruc- 
ción dada entre comillas no se ejecuta. 


Por tanto, la expresión: 


* (condición) / 'instrucción' 


equivale en APL a 
IF condición THEN instrucción 
cuyo organigrama es: 


La construcción IF-THEN-ELSE no es tan 
fácil de simular en APL. Puede conseguir- 
se, sin embargo, mediante la construc- 
ción equivalente siguiente: 


IF condición THEN instrucción-1 
IF NOT condición THEN instrucción-2 


donde la condición de la segunda ins- 
trucción es la negación de la condición 
de la primera. Estas dos instrucciones, en 
conjunto, actúan exactamente igual que 
la siguiente: 


IF condición THEN instrucción-1 ELSE ins- 
trucción-2 


En APL, esta construcción se represen- 
taria asi: 


* (condición) / 'instrucción-1' 
* (condición) / 'instrucción-2' 


donde la condición es idéntica en am- 
bas instrucciones, excepto que en la se- 
gunda está precedida por un símbolo (la 
tilde) que en APL representa la negación 
lógica. 


LOGO 


OCO a poco vamos 
conociendo todas las 
cosas que tiene o 
que puede hacer la 
tortuga y para qué 
nos pueden servir. 
Pero todavía nos que- 
dan algunas por des- 
cubrir. Entre ellas se encuentran las varia- 
bles. 

Nuestra amiga dispone de una serie de 
cajones (como los de un armario) dentro 
de los cuales puede guardar valores, lo 
mismo que dentro de una hucha guarda- 
mos monedas o en una estantería pone- 
mos libros, cuadernos, etc. 


cajón 


MD... 


Estos valores pueden ser números, pa- 
labras, e inciuso frases, 


ES A 


l Fig. 2. 


QUÉ ES UNA VARIABLE 


y los podemos ir cambiando según nos 
vaya interesando. Por este motivo, cada 
uno de estos cajones se dice que es una 
VARIABLE, ya que su contenido no es un 
valor fijo que siempre sea igual, sino que 
puede ir variando. 

Como es lógico, para poder meter un 
valor en un determinado cajón necesita- 
mos distinguirlo de los demás. La mejor 
forma de lograr esto es dando un nombre 
a cada uno de los cajones que vayamos 
utilizando. Por ejemplo, los tres cajones 
anteriores podrían llamarse: 


EDAD 


BD... 


Como este nombre lo escogemos nos- 
otros, lo más normal es usar nombres 
que signifiquen algo para nosotros, es 
decir, que nos indiquen qué es lo que va 
a ir conteniendo ese cajón o para qué lo 
vamos a utilizar. 

Una vez que tenemos un cajón que 
contiene algo hemos de diferenciar su 
nombre y su valor. Para ello, siempre que 
queramos hacer referencia al nombre de 
un cajón usaremos, 


«nombre 


mientras que si lo que nos interesa es el 
valor (el contenido) de ese cajón pon- 
dremos 


:nombre 


En el caso de los tres cajones anterio- 
res, tendriamos que: 


30 LOGO 


Contenido 


¡EDAD = 5 
:AMIGO = JULIAN 
¡SALUDO = BUENOS DIAS 


“EDAD 


“AMIGO 
“SALUDO 


Supongamos que queremos tener un 
cajón en el que vamos a ir guardando los 
diferentes días de la semana. Tendremos 


que: 
de A > 
' Fig. 4. 


“DIA = Nombre del cajón. 
:DIA = Contenido del cajón. 
— LUNES 

— MARTES 

— MIERCOLES 
— JUEVES 

— VIERNES 
— SABADO 
— DOMIGO 


Os proponemos 


1. Piensa el nombre, el contenido o los 
valores posibles de las siguientes varia- 
bles: 


Valores 
| Nombre | Contenido | postes 
“PUNTOCAR- :PUNTOCAR- |NORTE, 
DINAL DINAL SUR, ESTE, 

OESTE 
“AMIGO > 09 PR PEA 
4,5,6,7, 
8,9 
NIEVE, 
LLUVIA, 
VIENTO 


¿ARCOIRIS 


“MES 


yA Intenta descubrir el valor que se al- 
macenaria en el cajón 3 después de ha- 
cer las siguientes operaciones: 


a. En “cajón1 se guarda 7. 

b. En “cajón2 se guarda :cajón1 + 3. 

c. En “cajón3 se guarda :cajon2 + :ca- 
jón 1. 


UD Utilidad de las variables 


Ya sabemos que nuestra amiga la tor- 
tuga tiene una memoria que le permite 
recordar todas aquellas cosas nuevas 
que le vayamos enseñando mediante la 
definición de procedimientos. 

Supongamos que le hemos enseñado a 
hacer un cuadrado: 


? PARA CUADRADO 
> REPITE 4 [AV 30 GD 90] 


> FIN 


Siempre que le mandemos a la tortuga 
que ejecute este procedimiento, nos di- 
bujará un cuadrado del mismo tamaño 
(30). 

En caso de que lo queramos hacer más 
grande o más pequeño, tendremos que 
utilizar e; editor para borrar el 30 y poner 
el valor que nos vaya interesando en 
cada momento. 

Otra solución es tener definidos varios 
procedimientos que dibujen cuadrados 
de distintos tamaños: 


? PARA CUADRADO1 
REPITE 4 [AV 10 GD 901] 
FIN 

? PARA CUADRADOS 
REPITE 4 [AV 20 GD 901] 
FIN 


PARA CUADRADO3 


+ REPITE 4 [AV 30 GD 901] 


FIN 


Como vemos, estos dos métodos no 
son muy buenos, ya que con el primero 
tenemos que estar utilizando continua- 
mente el editor, y con el segundo tene- 
mos ocupada la memoria de la tortuga 
con un montón de procedimientos que 


hacen prácticamente lo mismo. En este 
caso, lo que más nos interesa es utilizar 
una variable. 

Al igual que los comandos AV O GD 
siempre llevan una entrada, es decir, van 
acompañados de un número que indica 
el número de pasos, o de grados que ha 
de dar la tortuga, los procedimientos 
también pueden llevar entradas, cuyo 
valor se lo daremos cuando la tortuga 
vaya a ejecutarlo. 

En el caso del cuadrado, nos interesa 
tener una variable en la que vayamos 
guardando el tamaño del cuadrado a di- 
bujar. 

La forma de definir un procedimiento 
que dibuje cuadrados de tamaño varia- 
ble es: 


? PARA CUADRADO :LADO 
> REPITE 4 [AV ¿LADO GD 901 


> FIN 


Ahora nos queda decirle a la tortuga el 
valor que queremos almacenar en la va- 
riable. Así, si vamos a dibujar un cuadra- 
do de tamaño diez diremos 


2CUADRADO 10 


y si después lo queremos de tamaño 25 
pondremos 


?2CUADRADO 25 


De esta manera no tenemos que entrar 
en el editor cada vez que queramos 
cambiar el tamaño del cuadrado, sino 
que basta con dar un valor a la variable 
cuando vayamos a ejecutar el procedi- 
miento. Y, por otro lado, la tortuga no tie- 
ne que memorizar varios procedimientos 
que hagan cuadrados, sino que sólo tie- 
ne que recordar uno. 


O Algunos dibujos 
con cuadrados 
de tamaño variable 


Una vez que sabemos dibujar cuadra- 
dos de lado variable, resulta muy senci- 


llo realizar figuras en las que intervengan 
éstos con diferentes tamaños. 

Como es lógico, lo primero que tendre- 
mos que hacer será enseñar a la tortuga 
el procedimiento que dibuje cuadrados 
de varios tamaños. 

Supongamos que ahora queremos pin- 
tar la siguiente figura: 


Fig. 5. 


El procedimiento correspondiente se- 
ña: 


? PARA TUNEL 
CUADRADO 20 
CUADRADO 30 
CUADRADO 40 


CUADRADO 50 


También podemos dibujar la siguiente 
columna: 


con este procedimiento: 


í PARA COLUMNA 


+ CUADRADO 45 


+ AV 45 


po CUADRADO 35 
Av as 
CUADRADO 25 
av 25 
CUADRADO 15 


oT 


1 Fig. 7. 
Por último, podemos obtener esta figu- 
ra ejecutando el procedimiento DIAMANTE 


? PARA DIAMANTE 


> GD 45 


v REPITE 4 [CUADRADO 10 CUADRADO 20 CUADRADO 30 CUADRADO 40 GD 


y luego esta cadena 


D Os proponemos 
1. Intenta definir los procedimientos 
que dibujan las siguientes figuras geomé- 
tricas con tamaño variable: EN di 
Triángulo 
Pentagono 
Hexágono y 
Octógono died: 
Círculo 


2. Usando el procedimiento que dibu- 
ja triángulos de distinto tamaño, pinta es- 


AA [El 


[4 Fig. 8. 


3. Ahora puedes pintar este túnel: 


4. Define los procedimientos para ob- 5. Pinta esta serie de circunferencias: 
tener estas figuras: 


/ Fig. 12. 


PASCAL 


AMOS a hacer nues- 
tra primera incursión 
en el terreno de los 
programas que ha- 
cen gráficos. Desafor- 
tunadamente, como 
las posibilidades grá- 
ficas varían con cada 
ordenador (e incluso muchos de ellos no 
son capaces de manejar gráficos), en el 
Pascal estándar no hay nada definido al 
respecto y, por tanto, la forma de trabajar 
varía de unos compiladores a otros. 

Ante esta situación, no quedan más 
que dos alternativas, o bien nos abstene- 
mos de hacer gráficos, o bien optamos 
por un compilador concreto, y es esta úl- 
tima la que vamos a escoger, optando 
por el Turbo-Pascal de la casa Borland, 
que funciona en los ordenadores perso- 
nales IBM y compatibles y que es uno de 
los más baratos del mercado. 

No obstante, veremos que, gracias a 
los procedimientos y funciones, es posi- 
ble estructurar los programas de manera 
que las zonas susceptibles de cambio 
queden claramente delimitadas. 


'Q Las figuras de Hilbert 


Observemos estas figuras: 


—— 227 
A 

[mn Mis ll Lar 
al LL 


Salta a la vista que la de la derecha 
está formada por cuatro figuras como la 
del centro giradas adecuadamente y 


unidas por tres rectas. Análogamente, la 
del medio está formada por cuatro como 
la de la izquierda unidas de idéntica ma- 
nera entre sí. 

Si llamamos H, a la más simple, H, a la 
siguiente y H, a la de la derecha, podría- 
mos generalizar la descripción de las fi- 
guras diciendo que la curva H,,, se forma 
a partir de cuatro del tipo H, únidas en- 
tre sí; incluso, podríamos decir que H,, la 
de la izquierda, está formada por cuatro 
figuras del tipo H,. O «figura inexistente» 
unidas entre sí por los tres tramos corres- 
pondientes. 

La figura H, se denomina «figura de Hil- 
bert de nivel N» en honor a su inventor D. 
Hilbert. 

Supongamos que las figuras las pinta- 
mos con un lápiz; el procedimiento para 
trazar una de nivel N con la «boca» orien- 
tada hacia la derecha, por ejemplo, se- 
ría: 

«Pintar figura nivel N, a derecha:» 
Si N es distinto de 0, entonces: 


— Pintar figura nivel N-4, arriba. 

— Trazar recta hacia la izquierda de 
longitud IH. 

— Pintar figura nivel N- 41, a derecha. 

— Trazar recta hacia abajo de longi- 
tud IV. 

— Pintar figura nivel N- 4, a derecha. 

— Trazar recta hacia la derecha de 
longitud IH. 

— Pintar figura nivel N- 41, abajo. 


IH e IV serían las longitudes de los tramos 
de unión horizontales y verticales, res- 
pectivamente. Como se ve, la definición 
es recursiva y es necesario disponer de 
procedimientos para'las cuatro orienta- 
ciones; además, como todos se pueden 
llamar a todos directa o indirectamente, 
es una excelente oportunidad de em- 
plear la definición FORWARD al escribirlos 
en PASCAL. 

A la hora de trazar gráficos con un or- 
denador, normalmente se considera que 


la pantalla está formada por celdillas in- 
dividuales, cada una de las cuales se 
puede «apagar» o «encender» (con uno 
o más posibles colores, según el ordena- 
dor), y que se identifican por medio del 
número de fila y columna que ocupan, 
estando preestablecida una de las es- 
quinas como origen de la cuenta. La ma- 
yoría de las versiones de Pascal permiten 
manejar esas celdillas o píxels («pixel» 
viene de «picture element») por medio 
de procedimientos predefinidos que po- 
drían tener el siguiente aspecto: 


Plot (3, 100, 1) «enciende» el pixel de 
la columna 3, fila 100. 
Plot (3, 100, 0) «apaga» el mismo. 


o bien 


Plot (3, 100) «enciende» el pixel de 


la columna 3, fila 100. 


UnPlot (3, 100) «apágalo». 


Incluso es posible que existan procedi- 


program Hilbert; 


mientos para trazar rectas entre dos 
pixels dados: 


Draw (1, 5, 100, 80) traza recta de la co- 
lumna 4, fila 5 a la 
columna 100, fila 80. 


Por otra parte, muchos ordenadores 
precisan una acción específica sobre el 
hardware para poder trazar gráficos; 
para ello emplearemos el procedimien- 
to Modo.Gráfico, que habrá que adaptar 
a cada caso (o eliminar); utilizaremos el 
procedimiento Borra-Pantalla para sepa- 
rar claramente las instrucciones necesa- 
rias para el borrado de la pantalla, que 
son dependientes del compilador. 

A la hora de trazar las figuras, supon- 
dremos que disponemos de un «lápiz» 
cuya posición en la pantalla será la indi- 
cada por las variables H (horizontal) y V 
(vertical); para mover el lápiz dejando un 
trazo tras de sí emplearemos el procedi- 
miento Mueve. 


Este programa consta de algunos procedimientos y constantes %X) 
que varían según el compilador utilizado; todos ellos se x) 


encuentran adecuadamente señalados. 


En concreto, este 


programa es directamente compilable con Turbo-Pascal. 


Véase el texto. 


(Xx Estas constantes indican las dimensiones de la pantalla %) 
(X gráfica; varían de unos ordenadores a otros. x) 
x 


V_Max = 199; 
O; H_Max = 639; 


(X Guardan la posición del "lápiz" x) 
(k Guardan la longitud de los trazos %X) 
(X Nivel de la figura a dibujar x) 


procedure Mueve (Salto_H, Salto_V: integer); 


(£ Mueve el "lápiz" el salto indicado, que puede ser positivo o no X*X) 


¡$6 PASCAL 


(X La siguiente instrucción es distinta según el compilador %*X) 
(Xx que tengamos. En algunos casos puede que sea necesario  X) 
(X sustituirla por más de una; véanse los otros ejemplos. x) 


(Xx Traza la recta: %) 

Draw (H,V, H + Salto_H, V + Salto_V, 1); 
(X La posición ha cambiado: *X) 

Hi= H + Salto_H; 


Vi= V + Salto_V 
end; 


procedure ABAJO (Nivel: integer); forward; 


procedure DERECHA (Nivel: integer); 


begin 
if Nivel <> O then 
begin 
Arriba (Nivel-1); 
Mueve (-Ih, 0); (Xx En horizontal hacia la izquierda %X) 
Derecha (Nivel-1); 
Mueve (0, —Iv); (x En vertical hacia abajo %*) 
Derecha (Nivel-1); 
Mueve (+Ih, 0); (Xx En horizontal hacia la derecha t) 
Abajo (Nivel-1) 
end 
end; 


procedure IZQUIERDA (Nivel:integer); 
begin 
if Nivel <> O then 
begin 
Abajo (Nivel-1); 
Mueve (+Ih, 0): 
Izquierda (Nivel-1):; 
Mueve (0, +Iv); 
Izquierda (Nivel-1); 
Mueve (-Ih, 0); 
Arriba (Nivel-1) 
end 
end; 


procedure ARRIBA; 
begin 
if Nivel <> O then 
begin 
Derecha (Nivel-1); 
Mueve (0, —Iv); 
Arriba (Nivel-1); 
Mueve (-Ih, 0); 
Arriba (Nivel-1); 
Mueve (0, +Iv); 
Izquierda (Nivel-1) 
end 
end; 


procedure ABAJO: 
begin 
if Nivel <> O then 

begin 
Izquierda (Nivel-1); 
Mueve (0, +Iv); 
Abajo (Nivel-1); 
Mueve (+Ih, 0); 
Abajo (Nivel-1); 
Mueve (0, —Iv); 
Derecha (Nivel-1) 


function Dos_elevado_a (N:z: integer): integer; 
var 1,J: integer; 
begin 


procedure ARRIBA (Nivel: integer); forward; 


J 32m 13 
for l:= 1 to N do J:= J Xx 2; 
Dos_elevado_a := J 


begin : 
Modo_Grafico; 
writeln (*Tras cada figura, pulse Intro para seguir.”); 
repeat Y 
write (*"Nivel: ”?);3 readln (N); 
if N< 1 then N:= 1; (* no vale nivel menor que 1 X) 


(k Tomamos la longitud de trazo adecuada %*) 
(kX para llenar la pantalla con la figura: *X) 


Ih:= H_Max div (Dos_elevado_a (N) — 1); 
Iv:= V_Max div (Dos_elevado_a (N) — 1); 


(kx Cuidamos que no se peguen las líneas: *) 


if (Ih >= 3) and (Iv >= 3) then 
beyin 
Borra_Pantalla; 


(kx Empezamos en una esquina: X*) 
H:= H_Max; 
V:i= V_Max;5 


Derecha (N); 


readln; 
Borra_Pantalla; 
end 
else 
writeln (*No cabe en esta pantalla.”) 


until false 
end. 


La figura de orden 5 generada por este 
programa quedaría asi: 


| 
» Fig. 2. 


se PASCAL 


Realmente, dependiendo de cuál sea 
la esquina de la pantalla en que se em- 
piecen a contar las filas y columnas, pue- 
de que lo que llamamos arriba sea aba- 
jo y viceversa, etc. 

Si IH es la longitud del tramo horizontal, 
la dimensión a lo ancho de una figura de 
nivel N es igual a 2 elevado a N, menos 


1, y análogamente en vertical; por ello se 
ha empleado la función Dos.elevado.a 
al calcular las longitudes de tramo. 

Para terminar, veamos cómo escribir el 
procedimiento Mueve si sólo se pueden 
manejar píxeles individualmente, con- 
tando con que las rectas son horizonta- 
les o verticales exclusivamente: 


var l: integer; 
begin 
if Salto_H = O then 
if Salto_V > O then 
else 
else 


if Salto_H > O then 


else 


H:i= H + Salto_H; 
Vi= V + Salto_V 
end; ; 


procedure Mueve (Salto_H, Salto_V: integer); 


(X recta vertical: k) 
for l:= V to V + Salto_V do Plot (H,1,1) 
for l:= V downto V + Salto_V do Plot (H,1,1) 
(X recta horizontal: *x) 
for l:= H to H + Salto_H do Plot (1,V,1) 
for l:= H downto H + Salto_H do Plot (1,V,1)3-. 
(X La posición ha cambiado: *) 


Entrada/Sali- 
da de datos 
por pantalla 


OS ordenadores reci- 
ben infomación, la 
elaboran y la mues- 
tran nuevamente al 
usuario. 

Existen diversas for- 
mas de tomar datos y 
reflejar resultados. 
Una de ellas es utilizar el teclado y la 
pantalla. 

La captura de datos desde el teclado 
se efectúa con la instrucción: 


ACCEPT campo 
Cuando un programa en ejecución se 


IDENTIFICATION DIVISION. 
PROGRAM-ID. El-ACCEFT. 


ENVIRONMENT DIVISION. 

DATA DIVISION. 
WORK. ING-STORACGE SECTIOM. 
O1 DATO-1 


0i DATO-2 


PROCEDURE DIVISION. 


INICIO. 
ACCEPT DATO-1. 
ACCEFT DATO-2. 


DISPLAY *DATO-1 = 
DISPLAY *DATO-2 = 


FIN-PEOGRAMA. 
STOP RUN. 


DISPLAY * INTRODUZCA EL FFIMER DATO”. 
DISPLAY ”* INTRODUZCA EL SEGUNDO DATO”. 


* DATO-1. 
? DATO=2. 


OTROS LENGUAJES 


encuentra con esta instrucción, se para, 
permitiendo al usuario teclear el dato 
que se desee, hasta que pulse la tecla 
<intro>. Los caracteres que han sido te- 
cleados serán el nuevo contenido del 
campo. 

Para visualizar datos por pantalla se 
debe emplear la instrucción: 


literal 


DISPLAY 
campo 


Este formato muestra en la pantalla un 
literal numérico o alfanumérico y cual- 
quier campo: teniendo, además, la posi- 
bilidad de displayar con una sola instruc- 
ción varios literales o variables. 

Se ve un ejemplo de estas insiruccio- 
nes a continuación: 


so OTROS LENGUAJES 


En este programa se han definido en la 
WORKING dos campos numéricos 
(DATO-1 y DATO-2), de longitud 2. 

La PROCEDURE DIVISION está dividida 
en dos «párrafos», INICIO y FIN-PROGRA- 
MA. Estos se denominan nombres de 
párrafo y agrupan un conjunto de senten- 
cias. Más adelante se verá la importan- 
cia de estos nombres de párrafo, que de- 
ben comenzar en el margen A y finalizar 
en punto, al igual que la instrucción que 
los precede. 

La primera instrucción ejecutable es un 
DISPLAY que pedirá al usuario el primer 
dato. Es conveniente, aunque no nece- 
sario, poner un DISPLAY antes de un AC- 
CEPT para avisar al operador. 

Después se parará el programa hasta 
que se tecleen los datos y se dé orden 
de continuación. Los caracteres introdu- 
cidos se almacenan en DATO-1. 

Las dos sentencias siguientes son aná- 
logas a las anteriores. 

Los dos DISPLAY's siguientes son un 
ejemplo de cómo visualizar un literal y 
una variable conjuntamente. La última 
sentencia del programa es STOP RUN, que 
lo finaliza. 

Todas las instrucciones de la PROCEDU- 
RE deben aparecer en el margen B. 

Una posible ejecución de este progra- 
ma podría ser: 


INTRODUZCA EL PRIMER DATO 


3 

INTRODUZCA EL SEGUNDO DATO 
10 

DATO-1 = 03 

DATO-2 = 10 


qm Instrucción de movimiento 


El movimiento entre campos o la trans- 
ferencia de un literal a uno o varios cam- 
pos se puede hacer empleando la ins- 
trucción: 


literal 
MOVE 
campo-1 


TO campo-2 


Su funcionamiento se comprende me- 
jor con un ejemplo: 


IDENTIFICATION DIVISION. 
PROGRAM-1D. EJ-MOVE. 


ENVIRONMENT DIVISION. 
DATA DIVISION. 


WORFIMC-STORAGE SECTION. 


01 PIE 2(3) 
o1 PIC SU 
01 PIC 9, 

o1 PIG XT. 
01 PIC X:50, 
01 ' FTE XE2N, 


VALUE 491. 


PROCEDURE DIVISION. 


INICIO. 
MOVE A TO 
MOVE A TO 
DISPLAY A ? ” 
MOVE “RIO” TU 
MOVE D TD 
MOVE D TO 
DISFLA - 


MmaAmotmo to 


A A 


FIN-PROSFAMA. 
STOF PUN. 


En WORKING se definen unos campos. 
La primera instrucción mueve el conteni- 
do del campo A aByC. 

Con el DISPLAY se visualizará: 691 
00691 1. 

El movimiento de un campo numérico 
a otro se hace ajustando por la derecha 
y rellenando con ceros las posiciones li- 
bres de la izquierda. Si la longitud del 
campo receptor es menor se produce un 
truncamiento y se pierden cifras por la iz- 
quierda. 

La siguiente instrucción consiste en mo- 
ver un literal altanumérico (encerrado 
entre apóstrofos), al campo alfanuméri- 
co D. A continuación, éste se mueve a los 
campos E y F. 

El resultado del DISPLAY que le sigue 
será: RIO RIO RI. 

En el movimiento altanumérico se ajus- 
ta por la izquierda rellenando con blan- 
cos por la derecha. 

Hay que tener cuidado con las combi- 
naciones de los campos, ya que si el emi- 
sor es un campo alfanumérico y el recep- 
tor numérico se produce un error duran- 
te la ejecución. 


E 


======== y EDICIONES y SIGLO y CULTURAL y === 


